From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 14 Feb 2003 11:09:03 +0000 (+0000)
Subject: (utf-8-ccl-encode): Fix use of character constants.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~28261
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a640cbc84fdc672796c7c9ad754f2d844cd296f7;p=emacs.git

(utf-8-ccl-encode): Fix use of character constants.
---

diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el
index b89b9a613e6..b8907578be0 100644
--- a/leim/quail/uni-input.el
+++ b/leim/quail/uni-input.el
@@ -50,7 +50,7 @@
 	     (write ((r0 & ?\x3F) | ?\x80)))
 	  (if (r0 < #x200000)
 	      ((write ((r0 >> 18) | ?\xF0))
-	       (write (((r0 >> 12) & ?\3F) | ?\x80))
+	       (write (((r0 >> 12) & ?\x3F) | ?\x80))
 	       (write (((r0 >> 6) & ?\x3F) | ?\x80))
 	       (write ((r0 & ?\x3F) | ?\x80)))
 	    (if (r0 < #x4000000)
@@ -58,13 +58,13 @@
 		 (write (((r0 >> 18) & ?\x3F) | ?\x80))
 		 (write (((r0 >> 12) & ?\x3F) | ?\x80))
 		 (write (((r0 >> 6) & ?\x3F) | ?\x80))
-		 (write ((r0 & ?\x3f) | ?\x80)))
+		 (write ((r0 & ?\x3F) | ?\x80)))
 	      ((write ((r0 >> 30) | ?\xFC))
 	       (write (((r0 >> 24) & ?\x3F) | ?\x80))
 	       (write (((r0 >> 18) & ?\x3F) | ?\x80))
 	       (write (((r0 >> 12) & ?\x3F) | ?\x80))
 	       (write (((r0 >> 6) & ?\x3F) | ?\x80))
-	       (write ((r0 & ?\x3f) | ?\x80))))))))))
+	       (write ((r0 & ?\x3F) | ?\x80))))))))))
 
 (defun ucs-input-method (key)
   (if (or buffer-read-only